<% dim gato %> <% ''how many visits for this page ? 'If (Application("AppPageCountVB") = "") Then ' Application("AppPageCountVB") = 0 'End If ' 'Application.Lock 'Application("AppPageCountVB") = Application("AppPageCountVB") + 1 'Application.UnLock ' 'response.write Application("AppPageCountVB") %>

colSpan=5> ▼  דף הבית

<% '''''''''''''''''''''''''''''''''''''''''' dim c, r, sql set c=server.createobject("adodb.connection") c.open DSN_NAME dim dd dd = "1" sql="select * from products where on_home_page =" & dd set r=server.createobject("adodb.recordset") r.open sql, c response.write " " do while not r.eof if r("on_deal") = "1" then dim picturex picturex = r("picture_s") '''''''line''''''''''''''''''''''''''''''''' 'response.write "" ''''''''''''''''''''''''''''''''''''''''''' gato = "prodetailsamewin.asp?pro_id=" & r("product_id") '''''''''''שם מוצר'''''''''''''''''''''' response.write "" response.write "" %> <% ''''''''''''''gato = "prodetail.asp?pro_id=" & r("product_id") %> <% dim titl,strMore strMore = "פרטים נוספים" ''''''''''''''''''''''''''''''''''' response.write "" response.write "" response.write "" response.write " " %> <% 'response.write "   להגדלה" 'response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" %> <% '''''''line''''''''''''''''''''''''''''''''' response.write "" ''''''''''''''''''''''''''''''''''''''''''' end if r.movenext loop r.close set r=nothing c.close set c=nothing ''''''''''''''''''''''''''''''''''''''''''''' %> " 'response.write " " 'response.write "  " & r("title") & "" 'response.write "        " & " " & " " & " " & " רק " & chr(164) & Formatnumber(r("price"),2) response.write "  " %> <% response.write "" & "   שם המוצר : " & "   " & r("title") & "   " response.write "מחיר בשוק : " & " " & chr(164) & Formatnumber(r("list_price"),2) & " " %>         <% response.write " מחיר מבצע : " & chr(164) & Formatnumber(r("price"),2) & " " %> <% response.write "  " & " " & "" & "לקניה" %> <% gato = "prodetail.asp?pro_id=" & r("product_id") %>            <% response.write "◄" & strMore & " " response.write " " response.write "